home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club (Business) 1997 July / Software of the Month Club - Business (Volume 239) (July 1997).iso / pc / code / h.dxr / 00009_NurseCharVidLogic.ls < prev    next >
Encoding:
Text File  |  1996-02-15  |  6.4 KB  |  163 lines
  1. on pickNurse playCount
  2.   set NurseObj to getaProp(gObjects, #NurseVid)
  3.   if getOne(getaProp(NurseObj, #Playlist), "H04nssd.mov") <> 0 then
  4.     set State to #cond10
  5.   else
  6.     if getaProp(getaProp(gObjects, #TubeObj), #Aquired) = #true then
  7.       if playCount = 1 then
  8.         set Playlist to getaProp(NurseObj, #Playlist)
  9.         add(Playlist, "H04nssd.mov")
  10.         MakeDynamic(#NurseVid, #Playlist, Playlist)
  11.         set State to #testTubea
  12.       else
  13.         set State to #testTubeb
  14.       end if
  15.     else
  16.       if (getaProp(getaProp(gObjects, #Leaf2Obj), #Aquired) = #true) and (getaProp(getaProp(gObjects, #leaf1Obj), #Aquired) = #true) then
  17.         if getOne(getaProp(NurseObj, #condList), #twoLeafs) = 0 then
  18.           if playCount = 1 then
  19.             set State to #twoLeafsa
  20.             MakeDynamic(#NurseVid, #curCond, #twoLeafs)
  21.           else
  22.             set State to #twoLeafsb
  23.           end if
  24.         else
  25.           set State to #twoLeafsb
  26.         end if
  27.       else
  28.         if (getaProp(getaProp(gObjects, #Leaf2Obj), #Aquired) = #true) or (getaProp(getaProp(gObjects, #leaf1Obj), #Aquired) = #true) then
  29.           set State to #oneLeaf
  30.         else
  31.           if getaProp(getaProp(gStates, #Conditions), #Defibrillate) = #true then
  32.             if getOne(getaProp(NurseObj, #condList), #defibSolved) = 0 then
  33.               if playCount = 1 then
  34.                 set State to #defibSolved1a
  35.                 MakeDynamic(#NurseVid, #curCond, #defibSolved)
  36.               else
  37.                 if playCount = 2 then
  38.                   set State to #defibSolved1b
  39.                 else
  40.                   set State to #defibSolved1c
  41.                 end if
  42.               end if
  43.             else
  44.               set State to #defibSolved2
  45.             end if
  46.           else
  47.             if getaProp(getaProp(gObjects, #PaMonitor), #HospPaid) = #true then
  48.               set State to #HospPaid
  49.             else
  50.               if getaProp(gStates, #Credits) > 15000 then
  51.                 set State to #sufCreds
  52.               else
  53.                 if getaProp(NurseObj, #insufCreds) = #true then
  54.                   if getOne(getaProp(NurseObj, #condList), #insufCreds) = 0 then
  55.                     if playCount = 1 then
  56.                       set State to #insufCreds1a
  57.                       MakeDynamic(#NurseVid, #curCond, #insufCreds)
  58.                       set Playlist to getaProp(NurseObj, #Playlist)
  59.                       add(Playlist, "H04nsup.mov")
  60.                       MakeDynamic(#NurseVid, #Playlist, Playlist)
  61.                     else
  62.                       if playCount = 2 then
  63.                         set State to #insufCreds1b
  64.                       else
  65.                         set State to #insufCreds1c
  66.                       end if
  67.                     end if
  68.                   else
  69.                     if getOne(getaProp(NurseObj, #condList), #insufCreds2) = 0 then
  70.                       if playCount = 1 then
  71.                         set State to #insufCreds2a
  72.                         MakeDynamic(#NurseVid, #curCond, #insufCreds2)
  73.                       else
  74.                         if playCount = 2 then
  75.                           set State to #insufCreds2b
  76.                         else
  77.                           set State to #insufCreds2c
  78.                         end if
  79.                       end if
  80.                     else
  81.                       if playCount = 1 then
  82.                         set State to #insufCreds3a
  83.                       else
  84.                         if playCount = 2 then
  85.                           set State to #insufCreds3b
  86.                         else
  87.                           if playCount = 3 then
  88.                             set State to #insufCreds3c
  89.                           else
  90.                             if playCount = 4 then
  91.                               set State to #insufCreds3d
  92.                             else
  93.                               set State to #insufCreds3e
  94.                             end if
  95.                           end if
  96.                         end if
  97.                       end if
  98.                     end if
  99.                   end if
  100.                 else
  101.                   if getaProp(getaProp(gObjects, #PaMonitor), #PINEntered) = #false then
  102.                     if getOne(getaProp(NurseObj, #condList), #noPIN) = 0 then
  103.                       if playCount = 1 then
  104.                         set State to #noPIN1a
  105.                         MakeDynamic(#NurseVid, #curCond, #noPIN)
  106.                       else
  107.                         if playCount = 2 then
  108.                           set State to #noPIN1b
  109.                         else
  110.                           set State to #noPIN1c
  111.                         end if
  112.                       end if
  113.                     else
  114.                       set State to #noPIN2
  115.                     end if
  116.                   else
  117.                     if getOne(getaProp(NurseObj, #condList), #cstSlved1) = 0 then
  118.                       if playCount = 1 then
  119.                         set State to #cstSlved1a
  120.                         MakeDynamic(#NurseVid, #curCond, #cstSlved1)
  121.                       else
  122.                         if playCount = 2 then
  123.                           set State to #cstSlved1b
  124.                         else
  125.                           set State to #cstSlved1c
  126.                         end if
  127.                       end if
  128.                     else
  129.                       if getOne(getaProp(NurseObj, #condList), #cstSlved2) = 0 then
  130.                         if playCount = 1 then
  131.                           set State to #cstSlved2a
  132.                           MakeDynamic(#NurseVid, #curCond, #cstSlved2)
  133.                         else
  134.                           if playCount = 2 then
  135.                             set State to #cstSlved2b
  136.                           else
  137.                             if playCount = 3 then
  138.                               set State to #cstSlved2c
  139.                             else
  140.                               set State to #cstSlved2d
  141.                             end if
  142.                           end if
  143.                         end if
  144.                       else
  145.                         set State to #cstSlved3a
  146.                       end if
  147.                     end if
  148.                   end if
  149.                 end if
  150.               end if
  151.             end if
  152.           end if
  153.         end if
  154.       end if
  155.     end if
  156.   end if
  157.   MakeDynamic(#NurseVid, #State, State)
  158.   MakeDynamic(#NurseVid, #DisplayState, getaProp(NurseObj, #State))
  159.   if playCount > 1 then
  160.     DoCharacterMovie(#NurseVid)
  161.   end if
  162. end
  163.